home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 30 / PC Gamer IT CD 30 1-2.iso / MEDIA / UPDATE.DXR / Internal_29.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  597 b   |  25 lines
  1. on mouseDown
  2.   puppetSound(2, "Sound2")
  3.   ClickMe()
  4. end
  5.  
  6. on ClickMe
  7.   set spriteNum to the clickOn
  8.   set offCast to the castNum of sprite spriteNum
  9.   set onCast to offCast + 1
  10.   set the castNum of sprite spriteNum to onCast
  11.   updateStage()
  12.   repeat while the mouseDown
  13.     scrollByLine(member "description", 1)
  14.     if rollOver(spriteNum) then
  15.       set the castNum of sprite spriteNum to onCast
  16.     else
  17.       set the castNum of sprite spriteNum to offCast
  18.     end if
  19.     updateStage()
  20.   end repeat
  21.   set the castNum of sprite spriteNum to offCast
  22.   updateStage()
  23.   return rollOver(spriteNum)
  24. end
  25.